home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
CD ROM Paradise Collection 4
/
CD ROM Paradise Collection 4 1995 Nov.iso
/
program
/
pcfig4th.zip
/
RANDOM.SCR
< prev
next >
Wrap
Text File
|
1985-04-23
|
2KB
|
1 lines
( RANDOM NUMBER GENERATOR, J. E. Rickenbacker ) ( FORTH DIMENSIONS II/2 PAGE 34 ) FORTH DEFINITIONS DECIMAL 0 VARIABLE SEED : (RAND) SEED @ 259 * 3 + 32767 AND DUP SEED ! ; ( n -- n1 returns pseudo-random number n1, 0<=n1<n ) : RANDOM (RAND) 32767 */ ;